4.7 Super Starter Games 


The Super Starter Game package is a set of four games 
that you can play against your computer. The listing of the 
games is included in this section. Like the monitor, the 
games are relative addressed. If you wish to run the games 
in RAM (it -_—— 1K words) load the first dump following 
the source listing and jump to the start (via G D2). If you 
want to put the games in EPROM, first load the second dump 
following the source listing into RAM. Then program it into 
EPROM (via P.D2,7FE,0). To execute the games in EPROM just 
jump to them (via GFOOO). Be sure you load the proper 
dump or the games will not work. If your kit does not have 
1K words of RAM, you must enter the program a piece ata 
time and program each segment into the EPROM. Be careful” 
to get the addressing correct or the games won't work. To 
be sure you have programmed the EPROM's correctly just 
dump them and recheck the dump against the second dump in 


this section. To dump the EPROM type "DFOOO, F7FF". 
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TITL “SUPER STARTER GAMES (VER 10/78)’ 


0000 Iprsse tpt “*TpTsse* 
0000 DREG ; DEFINE REGISTERS 

* 

* RAM DATA BASE 

* ORDER IS IMPORTANT, CHANGE WITH CARE 

* 
0080 AORG >BO ; ADDRESS RAM 
00B0 SEED BSS 2 ; RANDOM NO. SEED 
00B2 BROLL BSS 2 3; CURRENT BANKROLL 
00B4 WAGER BSS 2 ; CURRENT WAGER 
00B6 PTOT BSS 2 3; PLAYER TOTAL 
00B8 PACE BSS 2 3; PLAYER ACE COUNT 
OOBA CcroT BSS 2. ; COMPUTER TOTAL 
O0OBC CACE BSS 2 3; COMPUTER ACE COUNT 
OOBE CNT BSS 2 ; CARDS REMAINING 
00c0 CHid USE 2 ; COMPUTER HOLD 
00C2 DRW BSS 2 3; CARD LAST DRAWN 
00C4 DECK BSS 14 ; THE DECK 
00B6 GUESS EQU PTOT ; TOTAL NO. OF GUESSES 
00B8 GAMES EQU PACE ; TOTAL NO. OF GAMES 
00c4 No EQU DECK ; NUMBER 
008 6 POINT EQU. PTOT ; POINT 
00B 8 ROLL EQU. PACE 3; ROLL 
00B6 NUM1  EQU. PTOT ; NUMBER ONE 
00B8 NUM2 EQU. PACE ; NUMBER TWO 


* MONITOR INTERFACE 
* 


0000 RORG * 3; CHANGE TO RELATIVE 
0000 0460 O6EE B @BEGIN 3; GO TO START 
0000 TTY EQU 0 ; PCr BIT 
* 
* ROM DATA BASE 
& 
0004 07 BELLS BYTE 7 3; BELL CODE 
0005 25 DECML BYTE ’.’ 
0006 20 SPACE. BYTE * * 
0007 3F QUEST BYTE °?’ 
0008 40 ATSGN BYTE ’@’ 
0009 OD CR BYTE >0D 3; CARRIAGE RETURN 
OOOA OA LF BYTE >0A ; LINE FEED 
G00C 03E8 BANK DATA 1000 3; SIZE OF BANK 


OOOE 4132 3334 LABEL TEXT °A23456789TJIQK’ 
0012 3536 3738 
0016 3954 4A51 


OO1A 4B 

001C OOOA TEN DATA 10 3; CONSTANT 

001E OOO0D c13 DATA 13 3; CONSTANT 

0020 0006 C6 DATA 6 3; CONSTANT 

0022 0388 0042 GTAB DATA BLK10,°B’ 3; TABLE OF SELECTIONS 
0026 O4F4 0046 DATA GSO0O0O,’F’ 

002A O5E6 0043 DATA CRP10,°C’% 

002E 0672 0041 DATA AD10,°A’ 

0032 0000 DATA O ; END OF TABLE FLAG 
0034 O1 ONE BYTE 1 3; BYTE INCREMENT 


* 
* PLAYER MESSAGES 


F729 
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0035 
0039 
003D 
003F 
0043 
0047 
0048 
OO4F 
0053 
0057 
0058 
005C 
OO5F 
0063 
0067 
006B 
O06F 
0073 
0077 
OO7A 
OO07E 
OO7F 
0083 
0087 
008B 
008D 
0091 
0095 
0099 
0098 
OO09F 
00A 3 
OOA7 
OOAB 
OOAF 
00B3 
OOB6 
OOBA 
OOBE 
00c2 
00C6 
00Cc9 
OOCD 
OOD1 
00D 2 
0O0D6 
OODA 
OODE 
OOE2 
OOE6 
OOEA 
OOED 
OOF 1 
OOF5 
OOF9 
OOFD 
0101 
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* 
4143 MESSOO 


4954 MESSOL1 


4144 MESSO2 


5553 MESSO3 


4745 MESSO4 


543F MESSO5 


414C MESS06 


414C MESSO7 


5520 MESSO8 


5552 MESSO9 


414¢C MESS10 


5520 MESS11 


4045 MESS12 


2120 MESS13 


TEXT 


TEXT 


TEXT 


TEXT 


TEXT 


TEXT 


TEXT 


TEXT 


TEXT 


TEXT 


TEXT 


TEXT 


TEXT 


TEXT 


*“BLACKJACK@’ 


“INITIAL BANKROLL IS $200@’ 


*“READY?@’ 


“HOUSE LIMIT IS $100@’ 


*WAGER?@’ 


“HIT?@’ 


“DEALER HOLDS @’ 


“DEALER BUSTED@’ 


“YOU WINQ@’ 


“YOUR BANKROLL IS $@’ 


“DEALER TOTAL IS - @’ 


“YOU LOSE@’ 


“GAME OVER - YOU ARE BROKE!@’ 


“ti: YOU BROKE THE BANK !!!@% 
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0105 
0108 
010C 
0110 
0114 
0118 
0119 
011D 
0121 
0125 
0129 
012D 
0131 
0135 
0136 
013A 
013E 
0141 
0145 
0149 
014C 
0150 
0154 
0158 


015C 
0160 
0164 
0168 
016C 
016D 
0171 
0175 
0178 
017C 
0180 
0184 
0188 
018A 
018E 
0192 
0196 
O19A 
019C 
01A0 
O1A4 
01A8 
O1AC 
018B0 
O1B4 
01B8 
O1BC 
01C0 
01¢4 
01C8 
01cC 
O1CE 
01D2 
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5252 MESS14 TEXT “SORRY, NO CREDIT@’ 


5520 MESSI15 TEXT “YOU DRAW — @’ 


5552 MESS16 TEXT “YOUR TOTAL IS — @’ 


5520 MESSI17 TEXT “YOU BUSTED@’ 
4143 MESS18 TEXT “BLACKJACK! @’ 


414C MESS19 TEXT “DEALER DRAWS - @’ 
* 


5552 MESS20 TEXT ’FOUR DIGIT GUESS@’ 


4553 MESS21 TEXT “GUESS NO. @’% 


4749 MESS22 TEXT “DIGITS CORRECT - @’ 


2043 MESS23 TEXT ’IN CORRECT POS.- @’ 


5354 MESS24 TEXT “LAST SHOT, YOU LOSE. IT WAS 


3F20 MESS25 TEXT °?727? NUMBERS ONLY! @’% 


4154° MESS26 TEXT “THATS IT!@’ 


A T-4 


@’ 
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O1D6 
01D8 
01DC 
01E0 
O1E4 
O1E8 


O1EB 
O1EF 
O1F3 
O1F7 
O1FB 
O1FF 
0203 
0207 
0208 
020C 
0210 
0214 
0218 
021C 
0220 
0224 
0228 


022B 
022F 
0231 
0235 
0239 
023¢ 
0240 
0244 
0248 


O24A 
024E 
0252 
0256 
025A 
025E 


0262 
0264 
0266 
0268 
026C 
026E 
0270 
0272 


2140 
5 94F 
2041 
5241 
2049 
2D 20 


5745 
4F 4D 
544F 
4845 
2E53 
4741 
524F 
40 

4348 
5345 
4F55 
4741 
2028 
2046 
5354 
4554 
5229 


4352 
5340 
524F 
202E 
2E2E 
594F 
2050 
4E54 
2040 


4143 
2044 
4345 
5448 
5041 
202D 


COCB 
069A 
0098 
C020 
1006 
C OCB 
069A 
00c9 
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OOB4 


MESS 27 


* 
MESS 30 


MESS31 TEXT 


* 
MESS40 


MESS41 


MESS42 


* 
MESS50 


MESS51 


IN 


a a 


LOSE 


TEXT 


TEXT 


TEXT 


TEXT 


TEXT 


TEXT 


TEXT 


ROUTINE: 
PRINT WIN OR LOSE MESSAGE, 


UPDATE AND SHOW THE TOTALS 
CHECK FOR 


MOV 
BL 
DATA 
MOV 
JMP 
MOV 
BL 


“YOUR AVERAGE IS — @% 


“WELCOME TO THE S.S. GAMEROOM@’ 


“CHOOSE YOUR GAME (BY FIRST LETTER) @’ 


“CRAPS @’ 


“ROLL 2200 2@’” 


“YOUR POINT - @% 


“ACEY DUECEY@’ 


“THE PAIR — @’ 


COMMON SUBROUTINES 


WIN, LOSE 


OVERFLOW AND UNDERFLOW 


R11,R3 3; SAVE RETURN 
*R10 


MESSO8 

@WAGER, RO 

SHOW 

R11,R3 ; SAVE RETURN 
*R10 


DATA MESS11 
4.75 
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0274 C020 00B4 MOV @WAGER,RO 

0278 0500 NEG RO 

027A A020 00B2 SHOW A @BROLL, RO ; RO=NEW TOTAL 

027E 110C JLT SHOWLO 3; BROKE 

0280 1308 JEQ SHOW10 3 BROKE 

0282 8800 000C Cc RO, @BANK s CHECK AGAINST BANK LIMIT 
0286 150B JGT sSHOW20 ; BIG WINNER 

0288 C800 0082 MOV RO, @BROLL 3; SAVE NEW BANKROLL 
028C 069A BL *R10 ; DISPLAY IT 

028E 00A3 DATA MESSO09 

0290 C160 00B2 MOV @BROLL,RS 

0294 C203 MOV R3,R8 ; SETUP RETURN FOR DISP 
0296 1O1E JMP DISPA ; DISPLAY AND EXIT 
0298 069A SHOW1O BL *R10 ; BROKE 

029A 00D2 DATA MESS12 

029c 1008 IMP SHOW4O 

029E 069A SHOW20 BL *R10 ; BANK BROKE 

0240 OOED DATA MESS13 

O02A2 0201 0014 LI R1,20 3; RING THE BELLS 
O2A6 2CA0 0004 SHOW30 OUT @BELLS ; RING THE BELLS! 
O2AA 0601 DEC Rl 

O2AC 16FC JNE SHOW30 

O2AE 0460 O6EE SHOW4O B @BEGIN 3; RESTART 


* 


* ROUTINE: TYPED 
* TYPE A DIGIT IN R4 
* 


02B2 0284 OO0O0A TYPED CI R4,10 CHECK FOR TWO DIGITS 


> 
02B6 1108 JLT TYPE3 3; JUMP IF NOT 
02B8 04¢3 DISPD CLR R3 ; DISPLAY TWO DEC. DIG. 
O2BA 3CEO OOIC DIV @TEN,R3 
02BE 0A83 SLA R3,8 
02c0 A103 A R3,R4 
02c2 0224 3000 TYPE2 AI R4,>3000 3; ADJUST SECOND DIGIT 
02C6 2084 OUT R4 ; TYPE DIGIT 
02C8 0224 0030 TYPE3 AI R4,>30 ; ADJUST FOR ASCII 
02cC 06C4 SWPB R4 
O2CE 2084 OUT R4 
02D0 045B B *R11 


* ROUTINE: DISP 


* DISPLAY THE CONTENTS OF R5 
* 


02D2 C20B DISP MOV R11,R8 

02D4 0201 03E8 DISPA LI R1,1000 ; SETUP DIVISOR 
02D8 C105 DISP10 MOV R5,R4 

O2DA 0403 CLR R3 3; (R3,R4)=INPUT 
O2DC 3CCl DIV R1,R3 ; R3=INPUT/DIVISOR 
O2DE C103 MOV R3,R4 

O2E0 04C3 CLR R3 

0222 3CEO OO01C DIV @TEN,R3 3; R4=NEXT DIGIT 
O2E6 O6A0 02382 BL @TYPED 

O2EA 04C0 CLR RO 

O2ZEC 3¢€20 OOIC DIV @TEN,RO 

02¥0 C040 MOV RO,RI 

‘O2F2 16F2 JNE DISP10 

O2F4 0458 B FRB 


* 
* ROUTINE: RANDOM 


4.7-6 


PAGE-6 SUPER 


O2F 6 
02F8 
O2FC 
0300 
0302 
0304 
0308 
030A 
030E 


0310 
0312 
0314 
0316 
O31A 
O31E 
0322 
0324 
0326 
032A 
032C 
032E 
0330 


0332 
0334 
0336 
0338 
033A 
033C 
033E 
0342 
0344 
0348 
034A 
O34E 
0350 
0352 
0354 
0358 
035A 
O35E 
0360 
0364 
0366 
0368 


493F 
C020 
3820 
OB11 
0581 
8801 
13FC 
c80l 
O45B 


COCB 
069A 
0058 
0201 
c 801 
O4E0 
C2c3 
Cc OCB 
06A0 
1F00 
13FC 
2044 
0453 


COCB 
069A 
0073 
04C1 
2C44 
0984 
0224 
1108 
0284 
1505 
3860 
A084 
C042 
10F3 
0281 
1B06 
8801 
1506 
c80l 
0453 
069A 
OO5F 


STARTER 


* GENERATE A RANDOM NUMBER 

* N(I)=N(I-1)*C [MOD 

* C=18751 

* PERIOD=2**16-1=65535 

* 

GEN DATA 18751 
00B0 RANDOM MOV @SEED,RO 
02F6 MPY @GEN,RO 

Sec Ril 

RAND1O INC RI 

0080 C R1,@SEED 
JEQ RAND1O 

00B0 MOV R1,@SEED 
B *R11 

* 

* ROUTINE: WAIT 

* WAIT FOR OPERATOR GO AHEAD, 

* RANDOMIZE THE GENERATOR 

* 

WAIT - MOV. R11,R3 

BL *R10 

DATA MESSO2 
00c8 Li Ri, 200 
00B2 MOV R1, @BROLL 
OOBE CLR @CNT 

MOV R3,R11 

WAITA MOV R11,R3 

02F8 WAIT1O BL @RANDOM 
TR TTY 
JEQ WAIT10 
IN R4 
B *R3 

* 

* ROUTINE: GETWG 

* GET WAGER 

* 

GETWG MOV R11,R3 

GETW10 BL  *R10 

DATA MESSO4 
CLE KI 
GETW20 IN R4 
SRL R4,8 
FFDO AI R4,->30 
JLT GETW30 
0009 CI R4,9 
JGT GETW30 
001c MPY @TEN,R1 
A R4,R2 
MOV R2,R1 
JMP GETW20 
0064 GETW30 CI R1,100 
JH  GETW4O0 
00B2 Cc R1, @BROLL 
JGT GETW50 
00B4 MOV R1,@WAGER 
B *R3 
GETW40 BL *R10 
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DATA MESSO3 
Fe ee 


we we we we we we we we ve 


we we we we we we we 


we we we we 


we 


GENERATOR 

GET SEED 
(RO,R1)=NEXT NO. 
SHIFT IT 
INCREMENT IT 
SAME AS SEED? 
YES- CHANGE IT 
RESET SEED 

EXIT 


AND 


SAVE RETURN 
READY? 


PRESET BANKROLL 
PRESET BANKROLL 
CLEAR COUNTER 
RESET RET. 
SAVE RETURN 
GEN. NO. 
WAIT FOR OP. 


GET INPUT 


SAVE RETURN 
ASK FOR INPUT 


CLEAR TOTAL 

GET INPUT 

RIGHT JUSTIFY 
REMOVE ASCII BIAS 


(R1,R2)=R1*10 
R2=NEW VALUE 


TEST SIZE 
TOO BIG 


CHECK AGAINST ASSETS 


SAVE IT 
EXIT 


FOR ALT. 


INPUT 
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036A 
036C 
036E 
0370 


0372 
0376 
O37A 
037C 
O37E 
0380 
0384 
0386 


0388 
038A 
038¢C 
038E 
0390 
0394 
0398 
039C 
0395 
03A2 
O3A4 
03A8 
O03AC 
03B0 
O3B4 
03B6 
03B8 
O3BA 
O3BC 
03Cc0 
03C2 
03C6 
03C8 
03CC 
O3CE 
03D0 
03D2 
03D6 
O3DA 
O3DE 
O03E0 
O3E4 
03E6 
O3EA 
O3EC 
O3EE 
03F0 
O3F4 


10E4 
069A 
0108 
10E1 


2CA0 
2CA0 
CO7B 
2C91 
0581 
9811 
16FB 
O45B 


069A 
0035 
069A 
003F 
06A0 
06A0 
0201 
O4F 1 
0281 
16FC 
06A0 
06A0 
06A0 
06A0 
069A 
OO7A 
2044 
0984 
0284 
1306 
0284 
16F6 
06A0 
10F3 
069A 
007F 
2CA0 
c060 
0281 
1503 
06A0 
10F8 
0281 
1105 
069A 
008D 
06A0 
10CF 


STARTER GAMES (VER 10/78) 


0009 
000A 


0008 


0310 
0332 
00B6 
OOBE 
0454 
O040E 


O40E 
0454 


O004E 


0059 


O40E 


00c1 
OOBA 
0010 
0454 


0016 


0262 


> 


we we we 


REFUSE CREDIT 


NEW LINE 


R1=MESSAGE ADDR 
OUTPUT CHARACTER 
ADVANCE TO NEXT 
END? 

NO-CONTINUE 


JMP GETW10 
GETW50 BL *R10 
DATA MESS14 
JMP GETW10 
* 
* ROUTINE: MESS 
* DISPLAY THE MESSAGE WHOSE ADDRESS 
* FOLLOWS THE CALL 
* 
MESS OUT @CR 
OUT @LF 
MOV *R11+,R1 
MSS10 OUT *R1 
INC Rl 
CB *R1,@ATSGN 
JNE MSS10 
B *R11 


* 


* GAME-1 (BLACKJACK) 


* 
BLK10 


BLK30 


BLK40 


BLK45 


BLK50 


BLK60 


BLK70 


BLK80 


CLR 


*R10 
MESSOO 
*R10 
MESSO1 
@WAIT 
@GETWG 
R1,PTOT 
*R1I+ 
R1,CNT 
BLK30 
@DLR 
@PLAY 
@PLAY 
@DLR 
*R10 
MESSO5 
R4 
R4,8 
R4,°N’ 
BLK45 
R4,°Y’ 
BLK40 
@PLAY 
BLK40 
*R10 
MESS06 
@CHLD+1 
@CTOT,RI1 
R1,16 
BLK70 
@DLR 
BLK50 
Rib 22 
BLK100 
*R10 
MESSO7 
@WIN 
BLK20 
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we we we we 


we we we 


we 


EXIT 


SIGN-ON MESSAGE 
GIVE OUT BANKROLL 
WAIT FOR GO 


GET WAGER 
CLEAR TOTALS 


GET DEALER HOLD 
GET PLAYERS TWO 


GET DEALER SHOW 
HIT? 


GET INPUT 

RIGHT JUSTIFY 
NO? 

IF NOT YES?, ASK AGAIN 
GET HIT 

ASK AGAIN 

SHOW HOLD CARD 
PRINT CARD 

IF CTOT<16 - HIT 
DEALER HIT 

IF CTOT>21 - BUST 
DEALER BUST 


A WINNER 
CONTINUE 
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O3F6 
O3FA 
O3FC 
O3FE 
0400 
0404 
0408 
040C 


O40E 
0410 
0412 
0414 
0418 
041C 
0420 
0424 
0428 
042A 
042C 
0425 
0430 
0434 
0436 
043A 
043E 
0440 
0444 
0446 
0448 
044A 
044C 
O44E 
0450 
0452 


0454 
0456 
045A 
045C 
O45E 
0460 
0464 
0468 
046¢ 
0470 
0474 
0476 
0478 


8060 
15FA 
069A 
OOB6 
C120 
06A0 
06A0 
10c3 


COCB 
069A 
0119 
06A0 
A801 
A802 
0201 
8060 
1508 
L3tt 
069A 
0125 
c120 
c2c3 
0460 
0620 
1104 
6820 
OOB6 
10EC 
069A 
0136 
10DD 
069A 
0141 
10CE 


cOCB 
c020 
1302 
069A 
014¢C 
06A0 
A801 
A802 
0201 
8060 
1501 
0453 
0620 
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00B6 


OOBA 
02B8 
026E 


0486 
OOB6 
00B8 
0015 
OOB6 


00B6 


02B8 
OO0B8 


001C 


OOBA 


0486 
OOBA 
OOBC 
0015 
OOBA 


OOBC 


BLK100 C @PTOT,RI 
JGT BLK80 
BL *R10 
DATA MESS10 
MOV @CTOT,R4 
BL @DISPD 
BLK110 BL @LOSE 
JMP BLK20 
& 
* ROUTINE: PLAY 
* GET A CARD FOR PLAYER 
* 
* CHECK FOR BUST 
* 
PLAY MOV R11,R3 
BL *R10 
DATA MESS15 
BL @GET 
A R1,@PTOT 
A R2,@PACE 
PLAYLO LI Ri, 21 
c @PTOT,RI1 
JGT PLAY20 
JEQ PLAY40 
BL *R10 
DATA MESS16 
MOV @PTOT,R4 
MOV R3,R11 
B @DISPD 
PLAY20 DEC @PACE 
JLT PLAY30 
s @TEN,@PTOT 
JMP PLAY10 
PLAY30 BL  ¥*R10 
DATA MESS17 
JMP BLK110 
PLAY40 BL ¥*R10 
DATA MESS18 
JMP BLK80 
* 
* ROUTINE: DLR 
* DRAW ONE FOR THE DEALER 
* ADJUST TOTAL SCORE 
* 
DLR MOV R11,R3 
MOV @CTOT,RO 
JEQ DLR5 
BL *R10 
DATA MESS19 
DLR5 BL  @GET 
A R1,@CTOT 
A R2,@CACE 
DiR10 LE 81,21 
Cc @CTOT,R1 
JGT DLR30 
DLR20 B *R3 
DLR30 DEC @CACE 


we we we 


we 


we we 


COMPARE SCORES 
TRY AGAIN 
DEALER TOTAL 


SHOW TOTAL 


A LOSER 
CONTINUE 


ADJUST SCORE ACCORDING TO CARDS HELD 


we we we we we we 


we we we we we we 


we 


we we we 


SAVE RETURN 
DRAW- 


GET CARD 

ADD TO TOTAL 
ADD UP ACES TOO 
TEST SCORE 


BUST (MAYBE) 
BLACKJACK 
SCORE 1-20 


PRINT TOTAL 

SETUP FOR CALL TO DISP 
CALL AND EXIT 

IF NO ACES-BUST 


REDUCE ACE FROM 11 TO 1 


RETEST 
BUST 


A LOSER 
BLACKJACK 


“SAVE RETURN 


IF FIRST CALL, 
DON’T SHOW DRAW 
DEALER DRAWS 


GET CARD 

UPDATE TOTAL 
UPDATE ACES TOO 
TEST SCORE 


BUST (MAYBE) 
EXIT WITH NEW SCORE 
IF ACES, REDUCE SCORE 
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047C 
O47E 
0482 
0484 


0486 
0488 
048C 
O48E 
0492 
0494 
0498 
O49A 
049E 
O4A2 
04A6 
04A 8 
O4AC 
0430 
O4B4 
0486 
O4BA 
O4BC 
04c0 
04C2 
04C 6 
04C8 
04CC 
O4CE 
04D 2 
O4D4 
04D6 
O4DA 
04DC 
O4DE 
O4E2 
O4E6 
04E8 
O4EA 
O4EC 
O4EE 
O4F2 


O4F4 
O4F8 
O4FC 
O4FE 
0500 
0504 
0508 
O50A 
O50E 


11FC 
6820 
OOBA 
10F3 


C24B 
0620 
150A 
0201 
O4F1 
0281 
11FC 
0201 
c 801 
06A0 
04c0 
3¢20 
D021 
c80l 
0980 
0280 
15F3 
B 860 
00c4 
D121 
0581 
0281 
1102 
0201 
04C2 
0984 
0284 
1603 
0582 
0201 
C020 
1303 
06C4 
2C84 
0459 
C804 
0459 


O4E0 
O4E0 
O69A 
015¢ 
06A0 
05A0 
04C2 
06A0 
04¢c0 
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001C 


OOBE 
00c4 
OOD 2 
0033 
OOBE 
02F8 
OO1E 
00c4 
00c2 
0003 
0034 
OOOE 
OOOA 


000A 
0041 
0008 
OOBA 
00CO 
00B8 
00B6 
0310 


OOB8 


02F8 


+ ee FF 


GET 


GET5 


GET10 


GET15 


GET 20 


GS10 


‘MOV R11,R9 


JLT DLR20 3 
s @TEN, @CTOT 
JMP DLR1O 3 


ROUTINE: GET 
GET ONE CARD. 
PRINT IT ALSO 


DEC @CNT 
ger GxT10 
LI 406 EL, ECE 


we we we we we 


CLR *R1I+ 

cL R1,DECK+14 

JLT GET5 

LI R1,51 3 
MOV R1,@CNT 

BL @RANDOM 3 
CLR RO ; 


DIV @C13,R0 
MOVB @DECK(R1),R0 
MOV R1,@DRW 


SRL RO,8 
cI 20,3 
JGT GET10 3 


AB @ONE, @DECK(R1) 3 


MOVB @LABEL(R1),R4 


INC RI ; 
Cr R1,10 

JLT GET15 

LE 8 Bi, 18 

CLR R2 3 
SRL R4,8 


ING ‘R2 3 
LI R1,11 : 
MOV @CTOT,RO 3 
JEQ GET30 

SWPB R4 3 
OUT R4 

B *RO ; 
MOV R4,@CHLD 3 
B *RY s 


- 2 (FOUR DIGIT GUESS) 


CLR @GAMES 
CLR @GUESS 


we we we 


BL *R10 

DATA MESS20 

BL @WAIT s 
INC @GAMES ; 
CLR R2 : 
BL @RANDOM : 
CLR RO ; 


4.7-10 


IF NOT, EXIT 


RETEST 


IF NOT FIRST CALL 


SAVE RETURN 

CHECK CARDS LEFT 
IF NONE, RESHUFFLE 
CLEAR DECK COUNT 
CLEAR COUNTERS 


RESET COUNT 


GET RANDOM NO. 
FORCE PROPER RANGE 


ANY LEFT? 
SAVE DRAWN CARD 


NO-RETRY 
UPDATE CARD COUNT 


ADJUST FOR J,Q,K 


CHECK FOR ACE 


FLAG AS ACE 
CHANGE VALUE 
PRINT IF NOT FIRST 


OUTPUT 


EXIT 
SAVE HOLD CARD 
EXIT 


CLEAR GAME TOTAL 
CLEAR GUESS TOTAL 
SIGN-ON 


WAIT FOR START 
UPDATE NO. OF GAMES 
GENERATE NUMBER 

GET NO. 

FORCE RANGE 0-9 
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0510 3¢20 OO1Cc DIV @TEN,RO 

0514 C881 00C4 MOV R1,@NO(R2) 3; SAVE NO 

0518 c0c2 MOV R2,R3 3; CHECK FOR DUP 

051A 0643 GS20 DECT R3 

051C 1104 JLT ¢530 

O51E 88Cl 00C4 Cc R1, @NO(R3) 

0522 13F3 JEQ GS10 ; DUPLICATE 

0524 10FA IMP GS20 

0526 05c2 GS30  INCT R2 2 DICIT 0.K. 

0528 0282 0008 cl 32,9 3; CONTINUE TILL ALL DONE 
052C 16EE INE GS10 

052E 0205 0001 i a om | ; R1=GUESS COUNT 
0532 04c9 GS35 CLR RQ 3; R6=CORRECT POSITION 
0534 04¢7 CLE. B7 ; R7=JUST CORRECT 
0536 O5A0 00B6 INC @GUESS 3; INC. TOTAL GUESS 
053A 069A GS40 BL ¥*R10 ; ASK FOR GUESS 

053C 016D DATA MESS21 

053E C105 MOV R5,R4 ; PRINT GUESS NO. 
0540 O6A0 0282 BL @TYPED 

0544 2CA0 0007 OUT @QUEST ; PRINT °?2’ 

0548 04¢2 CLR R2 ; GET FOUR DIGIT GUESS 
054A 2044 GS50 IN R4 3; GET INPUT 

054C 0984 SRL R4,8 3; RIGHT JUSTIFY 

O54E 0224 FFDO AI R4,->30 ; REMOVE ASCII BIAS 
0552 1130 JLT GS100 ; NOT A DIGIT 

0554 0284 OOOA C1 R4,10 3; CHECK RANGE 

0558 152D JGT GS100 ; AGAIN NOT A DIGIT 
055A 8884 00C4 Cc R4, @NO(R2) 3; CORRECT POS? 

O55E 1601 JNE GS60 

0560 0589 INC R9 

0562 0203 0008 Gsé60 ii 8838 3; CORRECT? 

0566 88C4 00C2 Gs70 Cc R4, @NO-2(R3) 

056A 1601 INE GS80 

056C 0587 INC R7 

056E 0643 GS80 DECT R3 

0570 16FA JNE GS70 

0572 05¢2 INCT R2 3; FINISHED GUESSING? 
0574 0282 0008 Cl n8z,8 

0578 16£8 JNE GS50 ; IF NOT, CONTINUE 
057A 0289 0004 6m 89.4 3; A WINNER? 

O57E 131D JEQ GS110 

0580 069A BL *RI1O0 ; SHOW RESULTS 

0582 0178 DATA MESS22 

0584 C107 MOV R7,R4 3; DISPLAY TOTAL 

0586 O06A0 0282 BL @TYPED 

O58A 069A BL *R10 

058C O18A DATA MESS23 

058E C109 MOV R9,R4 ; DISPLAY SECOND TOTAL 
0590 06A0 0282 BL @TYPED : 

0594 0585 INC R5 ; UPDATE GUESS COUNT 
0596 0285 0010 Ct £835,126 3; BUST? 

059A 11CB SLT ¢835 

059C 069A BL *RLO 3; A LOSER 

059E 019¢ DATA MESS24 

O5A0 04C2 CLR R2 ; SHOW ANSWER 

05A2 C122 00C4 GS90 MOV @NO(R2),R4 

0546 06A0 0282 BL @TYPED 

O5AA 05C2 INCT R2 


47-11 
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OS5AC 
O5B0 
O5B2 
O5B4 
O5B6 
O5B8 
O5BA 
O5BC 
O5BE 
05c0 
05c2 
05C6 
O5CA 
OSCE 
O5D0 
O5D4 
O5D8 
O5DC 
O5E0 
O5E2 
O5E4 


O5E6 
05E8 
O5EA 
O5EC 
OSEE 
O5F2 
O5F6 
O5FA 
O5FC 
O5FE 
0602 
0606 
0608 
060A 
060C 
0610 
0612 
0614 
0616 
0618 
061C 
O61E 
0620 
0624 
0628 
062A 
062E 
0632 
0634 
0638 
063A 
063E 
0640 
0644 


SUPER STARTER GAMES (VER 10/78) 


0282 
11F8 
1005 
069A 
O1BC 
10c0 
069A 
O1CE 
069A 
01D8 
C160 
3960 
3D 60 
04c4 
3D 20 
06A0 
2CA0 
0225 
06C5 
2085 
10 8B 


069A 
02 2B 
069A 
003F 
06A0 
06A0 
04E0 
O69A 
0231 
06A0 
3860 
c101 
C042 
OA31 
3860 
0581 
0584 
C004 
AOOL 
c800 
OA81 
A101 
06A0 
c020 
1617 
C020 
0280 
131C 
0280 
1319 
0280 
1113 
0280 
1310 


0008 


00B6 
001C 
00B8 
O0O01C 
02B2 


0005 
0030 


0310 
0332 
00B6 


0324 
0020 


0020 


OOB8 
02C2 
OOB6 


O0OB8 
0007 


000B 


0004 


000C 


GS120 


DATA 
BL 
DATA 
MOV 
MPY 


R2,8 

Gs 90 

GS 120 
*R10 
MESS25 
GS40 
*R1O 
MESS26 
*R10 
MESS27 
@GUESS,R5 
@TEN,R5 
@GAMES,R5 
R4 
@TEN,R4 
@TYPED 
@DECML 
RS, ~Q" 
R5 

R5 

Gs05 


* GAME-3 (CRAPS) 


* 
CRP10 


BL 


*R10 
MESS 40 
*R1O 
MESSO1L 
@WAIT 
@GETWG 
@POINT 
*R10 
MESS41 
@WAITA 
@c6,R1 
R1,R4 
R2,R1 
R1,3 
@Cc6,R1 
Rl 

R4 
R4,R0 
R1,R0 
RO, @ROLL 
R1,8 
R1,R4 
@TYPE2 
@POINT,RO 
CRP50 
@ROLL, RO 
RO,7 
CRP70 
RO, 11 
CRP70 
RO,4 
CRP 60 
RO, 12 
CRP60 


4.7-12 


we we 


we we we we we we we 


we 


we 


START OVER 

ILLEGAL ENTRY 

A WINNER 

DO BATTING AVERAGE 

R5=GUESS 

(R5,R6)=GUESS*10 
R5=(GUESS/GAMES ) *10 
(R4,R5)=(GUESS/GAMES )*10 
R4=GUESS/GAMES, R5=REMAINDEF 


PRINT R4 
PRENT “s:” 


PRINT DIGIT 


SIGN ON 


GIVE OUT MONEY 
READY? 

GET WAGER 
CLEAR POINT 
ROLL 

WAIT TO GO 
R4=DIG ONE 
RANDOMIZE 
FORCE RANGE 1-6 
CALC TOTAL 


SAVE IT 


JUMP IF NOT FIRST 
7=WINNER 
11=WINNER 
2, 3=LOSER 


12=LOSER 
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0646 
0648 
O64A 
064E 
0652 
0656 
0658 
065C 
O65E 
0660 
0664 
0666 
066A 
066C 
0670 


0672 

0674 

0676 

0678 
067A 
O67E 

0680 

0682 

0686 
068A 
068E 
0690 
0692 

0696 
0698 
069C 

06A0 
O6A4 
06A8 
06A6 
O6AA 
O6AE 
06B0 
O6B4 
06B6 
O6BA 
O6BC 
06C0 
06C4 
06C8 
O6CA 
O6CC 
O6CE 
06D2 
06D6 
06D8 
O6DA 
O6DE 
06E0 
O6E4 


SUPER STARTER GAMES (VER 10/78) 


069A 
023¢C 
C120 
C804 
06A0 
10D1 
C060 
8040 
1306 
0281 
16CA 
06A0 
10¢c3 
06A0 
10C0 


069A 
024A 
069A 
003F 
06A0 
069A 
0256 
0720 
06A0 
C820 
OOB6 
1603 
C820 
OOB6 
2CA0 
O6A0 
C060 
1602 


0201 
8801 
1506 
C820 
00B8 
c 801 
1002 
c80l1 
06A0 
C020 
13DA 
069A 
0119 
06A0 
8820 
OOB6 
1503 
06A0 
10CF 
8820 
00C2 


00B8 
OOB6 
02B8 


OOB8 


0007 
026E 


0262 


0310 


OOBA 
0486 
00c2 
06A8 
0006 


0486 
00C2 


000D 
O00B6 
00B6 
00B6 
O0O0B8 


0332 
OOB4 


0486 
00C2 


026E 


0088 


CRP50 


CRP60 


CRP70 


* 


BL *R10 
DATA MESS42 
MOV @ROLL,R4 
MOV R4,@POINT 
BL @DISPD 
JMP CRP30 
MOV @ROLL,R1 
Cc RO,R1 
JEQ CRP70 

ot 1.7 

JNE CRP30 

BL @LOSE 
JMP CRP20 

BL @WIN 

JMP CRP20 


* GAME-4 (ACEY DUECEY) 


% 
AD10 


AD 20 


AD21 


THRT 


AD22 


AD30 
AD40 


AD 50 


AD60 


BL *R10 
DATA MESS50 
BL *R10 


DATA MESSO1 
BL @WAIT 


BL ¥*R10 

DATA MESS51 
SETO @CTOT 

BL @GET 

MOV @DRW,@NUM1 
JNE AD21 

MOV @THRT,@NUM1 
OUT @SPACE 

BL @GET 

MOV @DRW,RI1 
INE AD22 

EQU $42 

tr 1,13 

Cc ° R1,@NUM1 
JGT AD30 

MOV @NUM1, @NUM2 
MOV R1,@NUM1 
JMP AD4O 

MOV R1,@NUM2 
BL @GETWG 
MOV @WAGER, RO 
JEQ AD20 

BL *R1O 

DATA MESS15 

BL @GET 

Cc @DRW, @NUM1 
JGT AD60 

BL @LOSE 

JIMP AD20 

c @NUM2, @DRW 


4.7-13 


we we we we we we 


we 


SHOW POINT 


CONTINUE 
CHECK POINT 


YES, WINNER 
7=LOSER 


A LOSER 


CONTINUE 
A WINNER 


SIGN ON 


GIVE OUT MONEY 


WAIT TO GO 
LABEL THE PAIR 


SET DISP. 
GET ONE 


FLAG 


SKIP IF NOT ACE 
NUM1=13 


OUTPUT SPACE 
GET TWO 

R1=DRAW 

JUMP IF NOT ACE 
ADDRESS OF 13 
RESET AS 13 


WAGER 


IF ZERO, NO BET 
DRAW 
GET CARD 


O.K. 
LOSER 


SO FAR 
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O6E6 12F9 JLE AD50 
O6E8 O6A0 0262 BL @WIN ; A WINNER 
O6EC 10C8 JMP AD20 


* 
* CONTROL LOOP 
* 


O6EE 02E0 0080 BEGIN LWPI >80 USE MONITOR WORKSPACE 


> 

O6F2 O20A 0372 LI R10,MESS 3; PRESET R10 

O6F6 O4CC CLR R12 3; PRESET CRU BASE 

O6F8 069A ‘BL *R10 ; SHOW CHOICES 

O6FA OLEB DATA MESS30 

O6FC O69A BL *R10 

O6FE 0035 DATA MESSOO 

0700 069A BL *R10 

0702 015¢C DATA MESS20 

0704 069A BL *R10 

0706 0228 DATA MESS40 

0708 069A BL *R10 

O70A 024A DATA MESS50 

070C O69A BEG1O BL *R10 

O70E 0208 DATA MESS31 

0710 2044 IN R4 ; GET CHARACTER 

0712 0984 SRL R4,8 3; RIGHT JUSTIFY 

0714 0201 0022 LI R1, GTAB 

0718 COB1 BEG20 MOV *R1+,R2 

O71A 13F8 JEQ BEGIO ; NO MORE 

071C 8C44 Cc R4,*R1+ : 

O71E 16FC JNE BEG20 

0720 0452 B *R2 ; GO TO CHOICE 

0722 END BEGIN ; END OF SYSTEM 
0672 AD10 067E AD20 0698 AD21 QO6AA AD22 06BC AD30 
06CO AD40 O6DA AD50 O06EO AD60 0008 ATSGN 0O00C BANK 


070C BEGI1O 0718 BEG20 O6EE BEGIN 0004 BELLS 0388 BLK1O 
O3F6 BLK100 0408 BLK110 0394 BLK20 039C BLK30 03B4 BLK40 
O3CE BLK45 03D6 BLK50 *03E0 BLK60 03E6 BLK70 O03FO BLK80 


00B2 BROLL OO1E C13 0020 C6 OOBC CACE 00cO CHLD 
OOBE CNT 0009 CR O5E6 CRP1O O5F2 CRP20 O5FA CRP30 
0658 CRP50 0666 CRP60 066C CRP70 OOBA CTOT 00C4 DECK 
0005 DECML *02D2 DISP O02D8 DISP10 02D4 DISPA 02B8 DISPD 
0454 DLR 046C DLR1O 0476 DLR20 0478 DLR30 0460 DLR5 
00C2 DRW 00B8 GAMES O2F6 GEN 0486 GET 04A2 GET10 
04D2 GET15 O4E2 GET20 O4EE GET30 0492 GET5 0334 GETW1O 
033A GETW20 0354 GETW30 0366 GETW40 036C GETW50 0332 GETWG 
O4F4 GSOO O4FC GSO5 050A GS10 05B4 GS100 O5BA GS110 
O5BE GS120 O51A GS20 0526 GS30 0532 G6S35 053A GS-40 
054A GS50 0562 GS60 0566 GS70 O56E GS80 O05A2 GS90 
0022 GTAB 00OB6 GUESS ¥*0000 IDTSSG OOOE LABEL OOOA LF 
026E LOSE 0372 MESS 0035 MESSOO 0OO3F MESSOL 0058 MESS02 


_005F MESSO3 0073 MESSO4 007A MESSO5 0O0O7F MESSO6 OO8D MESSO7 
009B MESSO8 00A3 MESSO9 00B6 MESS10 00C9 MESS11 a00D2 MESS12 
OOED MESS13 0108 MESS14 0119 MESS15 0125 MESS16 0136 MESSI17 
0141 MESS18 014C MESS19 0O15C MESS20 016D MESS21 0178 MESS22 
018A MESS23 019C MESS24 O1BC MESS25 OI1CE MESS26 01D8 MESS27 
O1EB MESS30 0208 MESS31 022B MESS40 0231 MESS41 023C MESS42 


A 7-14 
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024A MESS50 
90B8 NUM2 
043A PLAY20 
0007 QUEST 
000C R12 * 
0003 R3 
0008 R8 
00B0 SEED 
O2AE SHOW4O 
02C2 TYPE2 
0326 WAIT1O 
EDIT/ASM/LOAD? 


STARTER GAMES (VER 10/78) 


0256 
0034 
0448 
0000 
000D 
0004 
0009 
027A 
0006 
02C8 
0324 


MESS51 037C 
ONE 00B8 
PLAY30 O44E 
RO 0001 
R13 *OO0E 
R4 0005 
RY 0302 
SHOW 0298 


SPACE | 001C 
TYPE3 O2B2 
WAITA 0262 


R5 
RAND10 
SHOW10 
TEN 
TYPED 
WIN 


4.7-15 


00c4 
040E 
00B6 
OOOA 
*O000F 
*0006 
02F8 
029E 
06A8 
OOB4 


NO 
PLAY 
POINT 
R10 
R15 

R6 
RANDOM 
SHOW 20 
THRT 
WAGER 


00B6 
0420 
OOB6 
000B 
0002 
0007 
00B 8 
02A6 
0000 
0310 


NUM1 
PLAY10 
PTOT 
R11 

R2 

R7 
ROLL 
SHOW30 
TTY 
WAIT 


EPROM VERSION 


?DD2,7FF 
OOD2: O04 
OOEO: 53 
OOFO: OO 
0100: F6 
0110: 40 
0120: 4c 
0130: 40 
0140: 24 
0150: 40 
0160: 45 
0170: 20 
0180: 4c 
0190: 4F 
O1A0O: 4F 
O1BO: 59 
01C0; 21 
O1D0: 20 
OLEO: 20 
OLFO? 52 
0200: 4C 
0210: 45 
0220: 41 
02302 55 
0240: 55 
0250: 20 
0260: 4F 
O2702 53 
0280: 45 
0290: 3F 
O2A0: 54 
O2B0: 56 
02C0: 43 
O2D0: 20 
O2E0: 20 
O2FO0: 49 
0300: 50 
0310: 55 
0320: 20 
0330: 20 
0340: CO 
03503 PL 
0360: FO 
0370: 06 
0380: 04 
0390: OA 
0O3A0: 2C 
O3B0: Cl 
03C0: FO 
O3D0: F2 
O3E0: 04 
O3F0: 04 
0400: 2¢ 
0410: 02 
0420: AO 


- PUT 


IN 


4.7-16 


>FOO00 


0430: 
0440: 
0450: 
0460: 
0470: 
0480: 
0490: 
O440: 
O4B0: 
04C0: 
O4D0: 
O4E0: 
O4F 0: 
0500: 
0510: 
0520: 
0530: 
0540: 
0550: 
0560: 
0570: 
0580: 
0590: 
O5A0: 
O5B0: 
05C0: 
O5D0: 
O5E0: 
O5F0: 
0600: 
0610: 
0620: 
0630: 
0640: 
0650: 
0660: 
0670: 
0680: 
0690: 
O6A0: 
O6B0: 
O6CO0: 
O6DO0: 
O6E0: 
O6FO: 
0700: 
0710: 
0720: 
0730: 
0740: 
0750: 
0760: 
0770: 
0780: 
0790: 
O7A0: 
O7B0: 
07CO0: 
O7D0: 
O7EO: 
O7FO: 


15 
Fl 
05 
FO 
02 
F4 
00 
06 
15 
FO 
FO 
co 
00 
Fl 
La 
06 
Fil 
00 
68 
02 
c8 
00 
FO 
02 
02 
C8 
Fl 
04 
88 
02 
cl 
02 
16 
06 
13 
cl 
Fl 
00 
06 
04 
00 
06 
06 
FO 
Al 
02 
11 
C8 
13 
F2 
06 
00 
F4 
15 
00 
06 
10 
02 
FO 
F2 
16 


RAM VERSION - 


?DD2,7FF 


OOD2: 04 
OOEO: 53 
OOFO: OO 
0100: O07 
0110: 40 
O20: 4C 
0130: 40 
0140: 24 
0150: 40 
0160: 45 
0170: 20 
0180: 4c 
0190: 4F 
O1A0: 4F 
O1BO: 59 
Oleo: Qt 
QO1DO;: 20 
O1EO: 20 
OlFO: 52 
0200: 4¢ 
0210: 45 
0220: 41 
0230: 55 
0240: 55 
0250: 20 
0260: 4F 
O270: 53 
0280: 45 
0290: 3F 
O2A0: 54 
0280: 56 
02C0: 43 
O2D0: 20 
OZE0: 20 
O2FO: 49 
0300: 50 
0310: 55 
0320: 20 
0330: 20 
0340: CO 
0350: 11 
0360: Ol 
0370: 06 
0380: 04 
0390: OA 
O3A0% 2¢ 
O3SB0*: €1 
03C0: 00 
03D0: 03 
O3E0: 64 
O3FO0: 04 
0400: 2c 
0410: 02 
0420: AO 


LOAD AT D2 


4. 7-18 


0430: 
0440: 
0450: 


0460: 


0470: 
0480: 
0490: 
O4A0: 
O4B0: 
04C0: 
O4D0: 


O4E0 


O4F0: 
0500: 
0510: 
0520: 
0530: 
0540: 
0550: 
0560: 
0570: 
0580: 
0590: 
O5A0; 
O5B0: 
05C0: 
O5D0: 
O5E0: 
O5F0: 
0600: 
0610: 
0620: 
0630: 
0640: 


0650: 
0660: 


0670: 
0680: 
0690: 
O06A0: 
OoBO: 
O06C0: 
O6D0: 
O6E0: 


O6FO: 


0700: 
O7 10% 
0720: 


0730 


o 


0740: 
0750: 
0760: 
0770: 
0780: 
0790: 
O7A0: 
O7EB0: 
07C0: 
O7D0: 


O7EO: 
O7FO: 


